/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Think Class Libraries / CTextFile 1.1 / Demo Samples / Signature adder sample / SigAdderMain.p

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| ae 0a 00 00 01 70 0c 53 | 69 67 41 64 64 65 72 4d |.....p.S|igAdderM|
|00000010| 61 69 6e 08 98 01 92 27 | 00 01 48 7b 53 69 67 41 |ain....'|..H{SigA|
|00000020| 64 64 65 72 4d 61 69 6e | 20 76 31 2e 30 20 a9 20 |dderMain| v1.0 . |
|00000030| 31 39 39 32 20 62 79 20 | 57 69 6c 6c 69 61 6d 20 |1992 by |William |
|00000040| 53 74 75 64 65 6e 6d 75 | 6e 64 2e 20 46 6f 72 20 |Studenmu|nd. For |
|00000050| 64 69 73 74 72 69 62 75 | 74 69 6f 6e 20 69 6e 66 |distribu|tion inf|
|00000060| 6f 2c 7d 08 92 2a 00 01 | 4f 7b 70 6c 65 61 73 65 |o,}..*..|O{please|
|00000070| 20 73 65 65 20 61 74 74 | 61 63 68 65 64 20 41 62 | see att|ached Ab|
|00000080| 6f 75 74 20 66 69 6c 65 | 2e 20 54 68 69 73 20 70 |out file|. This p|
|00000090| 72 6f 67 72 61 6d 20 69 | 73 20 61 20 64 65 6d 6f |rogram i|s a demo|
|000000a0| 20 6f 66 20 74 68 65 20 | 43 54 65 78 74 46 69 6c | of the |CTextFil|
|000000b0| 65 20 63 6c 61 73 73 7d | 9e 01 7e 03 03 54 43 4c |e class}|..~..TCL|
|000000c0| 7c 01 7e 08 0c 54 65 78 | 74 46 69 6c 65 49 6e 74 ||.~..Tex|tFileInt|
|000000d0| 66 08 98 01 ba 01 7e 05 | 06 6d 79 46 69 6c 65 08 |f.....~.|.myFile.|
|000000e0| 7c 01 7e 06 08 6d 79 4f | 75 74 70 75 74 08 a6 01 ||.~..myO|utput...|
|000000f0| 7e 06 09 43 54 65 78 74 | 46 69 6c 65 98 01 7e 02 |~..CText|File..~.|
|00000100| 01 73 a6 01 72 01 98 01 | 7e 06 09 64 6c 67 4f 72 |.s..r...|~..dlgOr|
|00000110| 69 67 69 6e a6 01 7e 04 | 05 50 6f 69 6e 74 98 01 |igin..~.|.Point..|
|00000120| 7e 05 07 74 68 65 52 65 | 63 74 a6 01 7e 04 04 72 |~..theRe|ct..~..r|
|00000130| 65 63 74 08 98 01 7e 07 | 0b 74 68 65 54 79 70 65 |ect...~.|.theType|
|00000140| 4c 69 73 74 a6 01 7e 07 | 0a 53 66 54 79 70 65 4c |List..~.|.SfTypeL|
|00000150| 69 73 74 08 98 01 7e 06 | 08 74 68 65 52 65 70 6c |ist...~.|.theRepl|
|00000160| 79 08 a6 01 7e 05 07 53 | 46 52 65 70 6c 79 98 01 |y...~..S|FReply..|
|00000170| 80 05 00 00 00 00 00 00 | 07 d0 92 0b 00 00 11 09 |........|........|
|00000180| 7b 53 61 6d 70 6c 65 54 | 65 78 74 46 69 6c 65 7d |{SampleT|extFile}|
|00000190| 94 01 78 0b 5c 0a 67 53 | 69 67 6e 61 74 75 72 65 |..x.\.gS|ignature|
|000001a0| 0a 5a 05 04 54 65 53 74 | 98 01 94 01 78 0f 5c 03 |.Z..TeSt|....x.\.|
|000001b0| 6e 65 77 10 5c 09 43 54 | 65 78 74 46 69 6c 65 10 |new.\.CT|extFile.|
|000001c0| 5c 06 6d 79 46 69 6c 65 | 16 16 98 01 78 10 5c 03 |\.myFile|....x.\.|
|000001d0| 6e 65 77 10 5c 09 43 54 | 65 78 74 46 69 6c 65 10 |new.\.CT|extFile.|
|000001e0| 5c 08 6d 79 4f 75 74 70 | 75 74 16 16 98 01 78 0b |\.myOutp|ut....x.|
|000001f0| 5c 06 6d 79 46 69 6c 65 | 52 5c 09 49 54 65 78 74 |\.myFile|R\.IText|
|00000200| 46 69 6c 65 98 01 78 0c | 5c 08 6d 79 4f 75 74 70 |File..x.|\.myOutp|
|00000210| 75 74 52 5c 09 49 54 65 | 78 74 46 69 6c 65 98 01 |utR\.ITe|xtFile..|
|00000220| 94 01 78 0c 5c 07 74 68 | 65 52 65 63 74 52 5c 04 |..x.\.th|eRectR\.|
|00000230| 6c 65 66 74 0a 08 5a 03 | 00 0a 98 01 92 21 00 00 |left..Z.|.....!..|
|00000240| 3c 09 09 7b 53 65 74 73 | 20 75 70 20 74 68 65 20 |<..{Sets| up the |
|00000250| 54 65 78 74 20 77 69 6e | 64 6f 77 2e 20 53 69 7a |Text win|dow. Siz|
|00000260| 65 64 20 74 6f 20 77 6f | 72 6b 20 77 2f 20 73 6d |ed to wo|rk w/ sm|
|00000270| 61 6c 6c 20 73 63 72 65 | 65 6e 73 2e 7d 08 78 0c |all scre|ens.}.x.|
|00000280| 5c 07 74 68 65 52 65 63 | 74 52 5c 05 72 69 67 68 |\.theRec|tR\.righ|
|00000290| 74 0a 5a 03 01 fe 98 01 | 78 0b 5c 07 74 68 65 52 |t.Z.....|x.\.theR|
|000002a0| 65 63 74 52 5c 03 74 6f | 70 0a 5a 03 00 32 98 01 |ectR\.to|p.Z..2..|
|000002b0| 78 0d 5c 07 74 68 65 52 | 65 63 74 52 5c 06 62 6f |x.\.theR|ectR\.bo|
|000002c0| 74 74 6f 6d 0a 08 5a 03 | 01 7c 98 01 78 0d 5c 0b |ttom..Z.|.|..x.\.|
|000002d0| 53 65 74 54 65 78 74 52 | 65 63 74 10 5c 07 74 68 |SetTextR|ect.\.th|
|000002e0| 65 52 65 63 74 16 98 01 | 7e 06 08 53 68 6f 77 54 |eRect...|~..ShowT|
|000002f0| 65 78 74 08 98 01 94 01 | 78 2f 5c 07 77 72 69 74 |ext.....|x/\.writ|
|00000300| 65 6c 6e 10 5a 05 4e 54 | 68 69 73 20 70 72 6f 67 |eln.Z.NT|his prog|
|00000310| 72 61 6d 20 75 73 65 73 | 20 74 68 65 20 43 54 65 |ram uses| the CTe|
|00000320| 78 74 46 69 6c 65 20 66 | 69 6c 65 20 63 6c 61 73 |xtFile f|ile clas|
|00000330| 73 20 74 6f 20 72 65 61 | 64 20 61 6e 64 20 77 72 |s to rea|d and wr|
|00000340| 69 74 65 20 41 53 43 49 | 49 20 64 61 74 61 20 66 |ite ASCI|I data f|
|00000350| 69 6c 65 73 2e 16 98 01 | 78 29 5c 07 77 72 69 74 |iles....|x)\.writ|
|00000360| 65 6c 6e 10 5a 05 42 53 | 70 65 63 69 66 69 63 61 |eln.Z.BS|pecifica|
|00000370| 6c 6c 79 2c 20 74 68 69 | 73 20 70 72 6f 67 72 61 |lly, thi|s progra|
|00000380| 6d 20 61 70 70 65 6e 64 | 73 20 6f 6e 65 20 66 69 |m append|s one fi|
|00000390| 6c 65 20 74 6f 20 74 68 | 65 20 65 6e 64 20 6f 66 |le to th|e end of|
|000003a0| 20 61 6e 6f 74 68 65 72 | 2e 16 98 01 78 29 5c 07 | another|....x)\.|
|000003b0| 77 72 69 74 65 6c 6e 10 | 5a 05 42 54 68 69 73 20 |writeln.|Z.BThis |
|000003c0| 70 72 6f 67 2e 20 63 61 | 6d 20 62 65 20 75 73 65 |prog. ca|m be use|
|000003d0| 64 20 74 6f 20 61 64 64 | 20 61 20 2e 73 69 67 20 |d to add| a .sig |
|000003e0| 74 6f 20 61 6e 20 6f 75 | 74 67 6f 69 6e 67 20 45 |to an ou|tgoing E|
|000003f0| 4d 61 69 6c 20 6d 65 73 | 73 61 67 65 2e 16 98 01 |Mail mes|sage....|
|00000400| 7e 05 07 77 72 69 74 65 | 6c 6e 98 01 94 01 78 20 |~..write|ln....x |
|00000410| 5c 07 77 72 69 74 65 4c | 6e 10 5a 05 30 50 6c 65 |\.writeL|n.Z.0Ple|
|00000420| 61 73 65 20 63 68 6f 6f | 73 65 20 74 68 65 20 66 |ase choo|se the f|
|00000430| 69 6c 65 20 63 6f 6e 74 | 61 69 6e 69 6e 67 20 74 |ile cont|aining t|
|00000440| 68 65 20 73 69 67 6e 61 | 74 75 72 65 2e 16 98 01 |he signa|ture....|
|00000450| 78 0f 5c 0b 74 68 65 54 | 79 70 65 4c 69 73 74 18 |x.\.theT|ypeList.|
|00000460| 5a 03 00 00 1c 0a 5a 05 | 04 54 45 58 54 08 98 01 |Z.....Z.|.TEXT...|
|00000470| 92 0e 00 00 16 09 7b 4f | 6e 6c 79 20 74 79 70 65 |......{O|nly type|
|00000480| 20 6c 6f 6f 6b 65 64 20 | 61 74 7d 08 78 11 5c 05 | looked |at}.x.\.|
|00000490| 53 65 74 50 74 10 5c 09 | 64 6c 67 4f 72 69 67 69 |SetPt.\.|dlgOrigi|
|000004a0| 6e 12 5a 03 00 55 12 08 | 5a 03 00 c8 16 08 98 01 |n.Z..U..|Z.......|
|000004b0| 78 20 5c 09 53 46 47 65 | 74 46 69 6c 65 10 5c 09 |x \.SFGe|tFile.\.|
|000004c0| 64 6c 67 4f 72 69 67 69 | 6e 12 5a 05 00 12 58 12 |dlgOrigi|n.Z...X.|
|000004d0| 5a 03 00 01 12 5c 0b 74 | 68 65 54 79 70 65 4c 69 |Z....\.t|heTypeLi|
|000004e0| 73 74 12 58 12 5c 08 74 | 68 65 52 65 70 6c 79 16 |st.X.\.t|heReply.|
|000004f0| 98 01 94 01 86 0a 5c 08 | 74 68 65 52 65 70 6c 79 |......\.|theReply|
|00000500| 52 5c 04 67 6f 6f 64 08 | 80 05 00 00 00 00 00 00 |R\.good.|........|
|00000510| 04 f6 78 24 5c 07 77 72 | 69 74 65 6c 6e 10 5a 05 |..x$\.wr|iteln.Z.|
|00000520| 1f 55 6e 64 65 72 73 74 | 6f 6f 64 2e 20 54 68 65 |.Underst|ood. The|
|00000530| 20 66 69 6c 65 20 69 73 | 20 6e 61 6d 65 64 20 22 | file is| named "|
|00000540| 12 5c 08 74 68 65 52 65 | 70 6c 79 52 5c 05 66 6e |.\.theRe|plyR\.fn|
|00000550| 61 6d 65 12 5a 02 01 22 | 16 08 98 01 7e 05 07 77 |ame.Z.."|....~..w|
|00000560| 72 69 74 65 6c 6e 98 01 | 9a 01 96 01 78 0d 5c 07 |riteln..|....x.\.|
|00000570| 77 72 69 74 65 6c 6e 10 | 5a 05 09 47 6f 6f 64 20 |writeln.|Z..Good |
|00000580| 62 79 65 21 16 08 98 01 | 92 08 00 00 0a 09 7b 69 |bye!....|......{i|
|00000590| 66 20 67 6f 6f 64 7d 08 | 94 01 86 0a 5c 08 74 68 |f good}.|....\.th|
|000005a0| 65 52 65 70 6c 79 52 5c | 04 67 6f 6f 64 08 80 05 |eReplyR\|.good...|
|000005b0| 00 00 00 00 00 00 07 cc | 78 11 5c 06 6d 79 46 69 |........|x.\.myFi|
|000005c0| 6c 65 52 5c 09 53 46 53 | 70 65 63 69 66 79 10 5c |leR\.SFS|pecify.\|
|000005d0| 08 74 68 65 52 65 70 6c | 79 16 98 01 78 17 5c 07 |.theRepl|y...x.\.|
|000005e0| 77 72 69 74 65 6c 6e 10 | 5a 05 1e 57 68 69 63 68 |writeln.|Z..Which|
|000005f0| 20 66 69 6c 65 20 73 68 | 6f 75 6c 64 20 62 65 20 | file sh|ould be |
|00000600| 61 70 70 65 6e 64 65 64 | 3f 16 98 01 78 20 5c 09 |appended|?...x \.|
|00000610| 53 46 47 65 74 46 69 6c | 65 10 5c 09 64 6c 67 4f |SFGetFil|e.\.dlgO|
|00000620| 72 69 67 69 6e 12 5a 05 | 00 12 58 12 5a 03 00 01 |rigin.Z.|..X.Z...|
|00000630| 12 5c 0b 74 68 65 54 79 | 70 65 4c 69 73 74 12 58 |.\.theTy|peList.X|
|00000640| 12 5c 08 74 68 65 52 65 | 70 6c 79 16 98 01 94 01 |.\.theRe|ply.....|
|00000650| 86 0a 5c 08 74 68 65 52 | 65 70 6c 79 52 5c 04 67 |..\.theR|eplyR\.g|
|00000660| 6f 6f 64 08 80 05 00 00 | 00 00 00 00 07 ca 78 12 |ood.....|......x.|
|00000670| 5c 08 6d 79 4f 75 74 70 | 75 74 52 5c 09 53 46 53 |\.myOutp|utR\.SFS|
|00000680| 70 65 63 69 66 79 10 5c | 08 74 68 65 52 65 70 6c |pecify.\|.theRepl|
|00000690| 79 16 98 01 78 10 5c 08 | 6d 79 4f 75 74 70 75 74 |y...x.\.|myOutput|
|000006a0| 52 5c 10 4f 70 65 6e 46 | 6f 72 41 70 70 65 6e 64 |R\.OpenF|orAppend|
|000006b0| 69 6e 67 08 98 01 78 09 | 5c 06 6d 79 46 69 6c 65 |ing...x.|\.myFile|
|000006c0| 52 5c 05 52 65 73 65 74 | 98 01 92 0b 00 00 11 09 |R\.Reset|........|
|000006d0| 7b 4f 70 65 6e 28 66 73 | 52 64 50 65 72 6d 29 7d |{Open(fs|RdPerm)}|
|000006e0| 94 01 8a 09 24 5c 06 6d | 79 46 69 6c 65 52 5c 03 |....$\.m|yFileR\.|
|000006f0| 45 4f 46 08 80 05 00 00 | 00 00 00 00 07 82 86 08 |EOF.....|........|
|00000700| 5c 06 6d 79 46 69 6c 65 | 52 5c 03 45 4f 4c 92 27 |\.myFile|R\.EOL.'|
|00000710| 00 00 48 09 7b 57 65 27 | 6c 6c 20 67 65 74 20 61 |..H.{We'|ll get a|
|00000720| 6e 20 45 4f 4c 20 69 66 | 20 74 68 65 20 66 69 6c |n EOL if| the fil|
|00000730| 65 20 65 6e 64 73 20 77 | 2f 6f 20 61 20 43 52 20 |e ends w|/o a CR |
|00000740| 63 68 61 72 61 63 74 65 | 72 2e 20 54 68 69 73 20 |characte|r. This |
|00000750| 74 65 73 74 20 63 61 6e | 27 74 7d 08 7e 04 05 6c |test can|'t}.~..l|
|00000760| 65 61 76 65 98 01 92 2b | 00 00 50 09 09 09 09 09 |eave...+|..P.....|
|00000770| 7b 67 6f 20 69 6e 20 74 | 68 65 20 57 68 69 6c 65 |{go in t|he While|
|00000780| 20 63 6f 6e 64 69 74 69 | 6f 6e 20 61 73 20 69 74 | conditi|on as it|
|00000790| 20 69 73 20 61 6e 20 65 | 72 72 6f 72 20 74 6f 20 | is an e|rror to |
|000007a0| 63 61 6c 6c 20 45 4f 4c | 20 77 68 65 6e 20 45 4f |call EOL| when EO|
|000007b0| 46 20 69 73 20 74 72 75 | 65 2e 7d 08 78 0c 5c 06 |F is tru|e.}.x.\.|
|000007c0| 6d 79 46 69 6c 65 52 5c | 06 52 65 61 64 4c 6e 10 |myFileR\|.ReadLn.|
|000007d0| 5c 01 73 16 98 01 78 0e | 5c 08 6d 79 4f 75 74 70 |\.s...x.|\.myOutp|
|000007e0| 75 74 52 5c 07 57 72 69 | 74 65 4c 6e 10 5c 01 73 |utR\.Wri|teLn.\.s|
|000007f0| 16 08 98 01 9a 01 98 01 | 94 01 78 0a 5c 08 6d 79 |........|..x.\.my|
|00000800| 4f 75 74 70 75 74 52 5c | 05 43 6c 6f 73 65 98 01 |OutputR\|.Close..|
|00000810| 78 09 5c 06 6d 79 46 69 | 6c 65 52 5c 05 43 6c 6f |x.\.myFi|leR\.Clo|
|00000820| 73 65 98 01 78 0b 5c 07 | 77 72 69 74 65 6c 6e 10 |se..x.\.|writeln.|
|00000830| 5a 05 05 44 6f 6e 65 21 | 16 08 98 01 9a 01 9a 01 |Z..Done!|........|
|00000840| 98 01 9a 01 00 01 02 01 |                         |........|        |
+--------+-------------------------+-------------------------+--------+--------+